home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 44
/
Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso
/
Aminet
/
comm
/
mail
/
YAT.lha
/
YAT
/
Install
< prev
next >
Wrap
Text File
|
2000-09-11
|
3KB
|
136 lines
.Key FILE/A
.bra {
.ket }
FailAt 21
Echo "Install {FILE}..."
CD >ENV:yatDIR{$$}
SetEnv yatMSG{$$} "Install aborted"
Assign >NIL: YAM: EXISTS
If WARN
SetEnv yatPAT{$$} ""
Else
SetEnv yatPAT{$$} "YAM:"
EndIf
RequestFile >ENV:yatDST{$$} "$yatPAT{$$}" FILE ".taglines" TITLE "Append or Copy to..."
If WARN
Skip EXIT
EndIf
SetEnv yatOPT{$$} "2"
Lab DEST
If EXISTS $yatDST{$$}
CD >NIL: $yatDST{$$}
If NOT WARN
CD "$yatDIR{$$}"
SetEnv yatTMP{$$} $yatDST{$$}
Echo >>ENV:yatTMP{$$} "{FILE}" NOLINE
SetEnv yatDST{$$} "*"$yatTMP{$$}*""
Skip DEST BACK
EndIf
Else
Skip DOIT
EndIf
SetEnv yatNAM{$$} $yatDST{$$}
RequestChoice >ENV:yatOPT{$$} TITLE "Request" BODY "$yatNAM{$$} already exists" GADGETS "Append" "Overwrite" "Cancel"
If WARN
Skip EXIT
EndIf
If "$yatOPT{$$}" EQ "0"
Skip EXIT
EndIf
RequestChoice >ENV:yatTMP{$$} TITLE "Request" BODY "Backup $yatNAM{$$}" GADGETS "Ok" "Skip" "Cancel"
If WARN
Skip EXIT
EndIf
If "$yatTMP{$$}" EQ "0"
Skip EXIT
EndIf
If "$yatTMP{$$}" EQ "2"
Skip DOIT
EndIf
SetEnv yatBAK{$$} $yatDST{$$}
Echo >>ENV:yatBAK{$$} ".bak" NOLINE
If NOT EXISTS "$yatBAK{$$}"
Skip BKUP
EndIf
SetEnv yatEXT{$$} "1"
Lab SUFF
SetEnv yatTMP{$$} "$yatEXT{$$}"
Eval >ENV:yatEXT{$$} $yatTMP{$$} + 1
SetEnv yatTMP{$$} "$yatBAK{$$}"
Echo >>ENV:yatTMP{$$} "$yatEXT{$$}" NOLINE
If EXISTS "$yatTMP{$$}"
Skip SUFF BACK
EndIf
SetEnv yatBAK{$$} "$yatTMP{$$}"
Lab BKUP
Component >ENV:yatPAT{$$} "$yatBAK{$$}" PATH
Component >ENV:yatNAM{$$} "$yatBAK{$$}" NAME
RequestFile >ENV:yatBAK{$$} "$yatPAT{$$}" FILE "$yatNAM{$$}" TITLE "Backup name..."
If WARN
Skip EXIT
EndIf
Lab NAME
If EXISTS $yatBAK{$$}
CD >NIL: $yatBAK{$$}
If NOT WARN
CD "$yatDIR{$$}"
SetEnv yatTMP{$$} $yatBAK{$$}
Echo >>ENV:yatTMP{$$} "`Component $yatDST{$$} NAME`" NOLINE
SetEnv yatBAK{$$} "*"$yatTMP{$$}*""
Skip NAME BACK
EndIf
RequestChoice >ENV:yatTMP{$$} TITLE "Request" BODY "`Echo $yatBAK{$$} NOLINE` already exists" GADGETS "Overwrite" "Cancel"
If WARN
Skip EXIT
EndIf
If "$yatTMP{$$}" EQ "0"
Skip EXIT
EndIf
EndIf
Copy $yatDST{$$} TO $yatBAK{$$} CLONE
If WARN
Skip EXIT
EndIf
SetEnv yatTMP{$$} $yatDST{$$}
Echo >>ENV:yatTMP{$$} " copied to " NOLINE
Echo >>ENV:yatTMP{$$} $yatBAK{$$} NOLINE
Echo "$yatTMP{$$}"
Lab DOIT
SetEnv yatNAM{$$} $yatDST{$$}
If "$yatOPT{$$}" EQ "1"
Echo >>"$yatNAM{$$}" "%%"
If WARN
Skip EXIT
EndIf
Type >>"$yatNAM{$$}" Taglines/{FILE}
If WARN
Skip EXIT
EndIf
SetEnv yatOPT{$$} "appended"
Else
Copy Taglines/{FILE} TO "$yatNAM{$$}" CLONE
If WARN
Skip EXIT
EndIf
SetEnv yatOPT{$$} "copied"
EndIf
SetEnv yatMSG{$$} "{FILE} "
Echo >>ENV:yatMSG{$$} "$yatOPT{$$} to " NOLINE
Echo >>ENV:yatMSG{$$} $yatDST{$$} NOLINE
Lab EXIT
Echo "$yatMSG{$$}"
RequestChoice >NIL: TITLE "Request" BODY "$yatMSG{$$}" GADGETS "Bye"
Delete >NIL: ENV:yat#?{$$}